home *** CD-ROM | disk | FTP | other *** search
- ; $VER: VersCheck-Installerscript V 1.0 (16.10.1999) english
- ; Installer script to install/update VersCheckGUI
- ; written by Michaela Prüß
-
- ( complete 0 )
- ( user 2 )
-
- ;=============================================================================
- ; output and help
-
- ( set @abort-button "Abort" )
-
- ( set #bad-kick ( cat "Need KickStart 2.0 or higher" ) )
-
- ( set #inst-1 ( cat "Copy file..." ) )
-
- ( set #inst-1inf ( cat "Copy icon..." ) )
-
- ( set #confirm
- ( cat "\nInstall VersCheckGUI on harddisk."
- "\n\nPlease choose your CPU type:"
- ) )
-
- ( set #confirm-help
- ( cat "\nVersCheckGUI will be installed in a later choosen"
- "\ndrawer."
- "\nFirst set the cpu-version that you want to be"
- "\ninstalled!"
- "\n\nMichaela Prüß, 16.10.1999\n"
- ) )
-
- ( set #docprompt
- ( cat "Path for the document's.\n"
- "A drawer 'VersCheckGuide' will be added there!"
- ) )
-
- ( set #dochelp
- ( cat "Drawer for the documentation.\n"
- ) )
-
- ( set #fontprompt
- ( cat "Install xen.font into fonts: drawer?\n"
- ) )
-
- ( set #fonthelp
- ( cat "\nDo you want to install the xen.font to your"
- "\nfonts: drawer?\n"
- "\nThis font is needed for VersCheckGUI!\n"
- ) )
-
- ( set #confirm-1 ( cat "68000" ) )
- ( set #confirm-2 ( cat "68010" ) )
- ( set #confirm-3 ( cat "68020 / 68881" ) )
- ( set #confirm-4 ( cat "68030 / 68882" ) )
- ( set #confirm-5 ( cat "68040 / FPU 040" ) )
- ( set #confirm-6 ( cat "68060 / FPU 060" ) )
- ( set #confirm-7 ( cat "PowerPC with PowerUp" ) )
- ( set #confirm-8 ( cat "PowerPC with Warp-OS" ) )
-
- ( set #askdir
- ( cat "Select path for the programfile."
- "\nUse the drawer where VersCheck is installed!"
- "\nNo new drawer will be added!"
- ) )
-
- ( set #askdir-help
- ( cat "Choose the location for installing"
- "\nVersCheckGUI."
- ) )
-
- ( set #ready
- ( cat "\nEnd of installation!\n"
- "\nVersCheckGUI is complete installed and ready for"
- "\nusage!\n"
- ) )
-
- ( set #first
- ( cat "\nWelcome to the installation of\nVersCheckGUI!\n\n"
- "(c) 1998, 1999 by Michaela Prüß"
- "\n\nVersCheckGUI need VersCheck to work!\n"
- ) )
-
- ;=============================================================================
- ; Kick 2.x or higher?
-
- ( complete 1 )
-
- ( if ( < ( / ( getversion ) 65536 ) 37 ) ( ( abort #bad-kick ) ) )
-
- ( onerror
- (
- ( if ( > @ioerr 0 )
- ( message ( cat "\n ERROR CODE: " @ioerr "\n\n" ) )
- )
- ) )
-
- ( message #first )
-
- ( complete 5 )
-
- ( if ( patmatch "68000" ( database "cpu" ) )
- ( ( set #cpu 0 ) )
- )
- ( if ( patmatch "68010" ( database "cpu" ) )
- ( ( set #cpu 1 ) )
- )
- ( if ( patmatch "68020" ( database "cpu" ) )
- ( ( set #cpu 2 ) )
- )
- ( if ( patmatch "68030" ( database "cpu" ) )
- ( ( set #cpu 3 ) )
- )
- ( if ( patmatch "68040" ( database "cpu" ) )
- ( ( set #cpu 4 ) )
- )
- ( if ( patmatch "68060" ( database "cpu" ) )
- ( ( set #cpu 5 ) )
- )
-
- ( set action
- ( askchoice
- ( default #cpu )
- ( prompt #confirm )
- ( help #confirm-help )
- ( choices #confirm-1
- #confirm-2
- #confirm-3
- #confirm-4
- #confirm-5
- #confirm-6
- #confirm-7
- #confirm-8
- ) ) )
-
- ( complete 10 )
-
- ( set name
- ( askdir
- ( prompt #askdir )
- ( help #askdir-help )
- ( default "c:" )
- ( disk )
- ) )
-
- ( complete 20 )
-
- ( user 0 )
-
- ( if ( = action 0 )
- ( ( copyfiles
- ( prompt #inst-1 )
- ( dest name )
- ( source "VersCheckGUI" )
- ( newname "VersCheckGUI" )
- ( infos )
- ) ) )
-
- ( if ( = action 1 )
- ( ( copyfiles
- ( prompt #inst-1 )
- ( dest name )
- ( source "VersCheckGUI.010" )
- ( newname "VersCheckGUI" )
- ( infos )
- ) ) )
-
- ( if ( = action 2 )
- ( ( copyfiles
- ( prompt #inst-1 )
- ( dest name )
- ( source "VersCheckGUI.020" )
- ( newname "VersCheckGUI" )
- ( infos )
- ) ) )
-
- ( if ( = action 3 )
- ( ( copyfiles
- ( prompt #inst-1 )
- ( dest name )
- ( source "VersCheckGUI.030" )
- ( newname "VersCheckGUI" )
- ( infos )
- ) ) )
-
- ( if ( = action 4 )
- ( ( copyfiles
- ( prompt #inst-1 )
- ( dest name )
- ( source "VersCheckGUI.040" )
- ( newname "VersCheckGUI" )
- ( infos )
- ) ) )
-
- ( if ( = action 5 )
- ( ( copyfiles
- ( prompt #inst-1 )
- ( dest name )
- ( source "VersCheckGUI.060" )
- ( newname "VersCheckGUI" )
- ( infos )
- ) ) )
-
- ( if ( = action 6 )
- ( ( copyfiles
- ( prompt #inst-1 )
- ( dest name )
- ( source "VersCheckGUI.elf" )
- ( newname "VersCheckGUI" )
- ( infos )
- ) ) )
-
- ( if ( = action 7 )
- ( ( copyfiles
- ( prompt #inst-1 )
- ( dest name )
- ( source "VersCheckGUI.wos" )
- ( newname "VersCheckGUI" )
- ( infos )
- ) ) )
-
- ( complete 25 )
-
- ( copylib
- ( prompt #inst-1 )
- ( dest "Libs:" )
- ( source "Libs/intuisup.library" )
- )
-
- ( complete 30 )
-
- ( copyfiles
- ( prompt #inst-1inf )
- ( dest name )
- ( source "VersCheckGUI.info" )
- ( newname "VersCheckGUI.info" )
- ( infos )
- )
-
- ( user 2 )
-
- ( complete 40 )
-
- ( set dnam
- ( askdir
- ( prompt #docprompt )
- ( help #dochelp )
- ( default "help:" )
- ( disk )
- ) )
-
- ( complete 50 )
-
- ( copyfiles
- ( prompt #inst-1 )
- ( dest ( tackon dnam "VersCheckGuide" ) )
- ( source "ReadMe.1st" )
- ( infos )
- )
-
- ( complete 60 )
-
- ( copyfiles
- ( prompt #inst-1 )
- ( dest ( tackon dnam "VersCheckGuide" ) )
- ( source "Doku/VersCheckGUI.ReadMe" )
- ( infos )
- )
-
- ( complete 70 )
-
- ( copyfiles
- ( prompt #inst-1 )
- ( dest ( tackon dnam "VersCheckGuide" ) )
- ( source "Doku/VersCheckGUI.doc" )
- ( infos )
- )
-
- ( complete 80 )
-
- ( set action
- ( askchoice
- ( prompt #fontprompt )
- ( help #fonthelp )
- ( choices "Yes"
- "No"
- ) ) )
-
- ( complete 90 )
-
- ( if ( = action 0 )
- ( copyfiles
- ( prompt #inst-1 )
- ( dest "Fonts:" )
- ( source "Fonts" )
- ( pattern "#?" )
- ) )
-
- ( message #ready )
-
- ( complete 100 )
-
- ( exit ( quiet ) )
-
-
- ;=============================================================================
- ; we never get here, but this keeps the Installer from being a pest
- ( welcome )
-